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**F ILE**1D**SYSCHGMOD 
SSSSSSSS_ YY YY SSSSSSSS cccccccc HH HH GGGGGGGG MM MM 000000 DDDDDDDD 
SSSSSSSS_ YY YY SSSSSSSS cccccccc HH HH GGGGGGGG MM MM 000000 DDDDDDDD 
$$ YY YY SS cc HH HH GG MMMM MMMM 00 00 OD DD 
$$ YY YY SS cc HH HH GG MMMM MMMM 00 00 DD DD 
SS YY YY SS cc HH HH GG MM MM MM O00 00 DD DD 
SS yy YY SS cc HH HH GG MM MM MM O00 00 DD DD 
SSSSSS YY SSSSSS cc HHHHHHHHHH = GG MM MM 00 00 OD DD 
SSSSSS YY SSSSSS cc HHHHHHHHHH = GG MM MM 00 00 oD DD 
SS YY S$ CC HH HH GG GGGGGG MM MM 00 00 DD DD 
SS YY SS CC HH HH GG GGGGGG MM MM 00 00 OD DD 
SS YY ss CC HH HH GG GG MM MM 00 00 DD DD eeee 
SS YY ss (CC HH HH GG GG MM MM 00 00 OD DD eeee 
SSSSSSSS YY SSSSSSSS cccccccc HH HH GGGGGG MM MM 000000 DDDDDDDD cece 
SSSSSSSS YY SSSSSSSS cccccccc =H HH GGGGGG MM MM 000000 DDDDDDDD eee 
LL IIIT] SSSSSSSS 
LL III] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] Ss 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL III! SSSSSSSS 
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“SEP-19 SYS.SRCISYSCHGMOD .MAR; 1 ( 


-TITLE SYSCHGMOD - SYSTEM SERVICES TO CHANGE MODE 
- IDENT *ybec000" 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 


DIGITAL EQUIPHENT _GORPORATION, ° MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESER 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eORPORATI Ok NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: 
SYSTEM SERVICES TO CHANGE MODE 
ABSTRACT: 


CHANGE MODE TO EXECUTIVE SYSTEM SERVICE 
CHANGE MODE TO KERNEL SYSTEM SERVICE 


AUTHOR: D. N. CUTLER, CREATION DATE: 30-SEP-76 
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MODIFIED BY: 
v02-003 STJ0115 Steven T. Jeffreys 02-Sep-1981 
Liberal rewrite to increase speed. Optimized” for SCMKRNL. 
v02-002 KDmM0037 Kathleen D. Morse 12-Feb-1981 


Change non-kernel mode references to SCHS$GL “CURPCB 
to use CTL$GL_PCB instead. 
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N 4 
CEXECUTIVE AND KERNEL "erSeei18ke Odicoi20 Fersvencisyscuonop-mar;1 = 28 GZ 


~SBTTL CHANGE MODE TO EXECUTIVE AND KERNEL 


SYSCHGMOD = SYSTE 
v04-000 


EXESCMEXEC = CHANGE MODE TO EXECUTIVE 
EXESCMKRNL = CHANGE MODE TO KERNEL 
THESE SERVICES peovees | HE CAPABILITY TO CHANGE THE CURRENT PROCESSOR 
ACCESS MODE AND CALL A SPECIFIED ROUTINE WITH A SPECIFIED ARGUMENT LIST. 
INPUTS: 
ROUTINCAP) = ADDRESS OF ROUTINE TO BE EXECUTED AT SPECIFIED MODE. 
ARGLST(AP) = ADDRESS OF ARGUMENT LIST TO BE PASSED TO ROUTINE. 


IF ENTRY AT EXESCMKRNL, THEN 
R4 = CURRENT PROCESS PCB ADDRESS. 
OUTPUTS: 
RO LOW BIT CLEAR INDICATES FAILURE TO PERFORM SPECIFIED ROUTINE. 


RO = SS$_NOPRIV = PROCESS DOES NOT HAVE PRIVILEGE TO CHANGE 
TO THE SPECIFIED ACCESS MODE. 


RO = FINAL VALUE RETURNED BY EXECUTED ROUTINE. 
RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 
RO = FINAL VALUE RETURNED BY EXECUTED ROUTINE. 


Be Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 
+ 


CMEXEC, “M<R4> 
54 00000000'GF GL_P pts R4 ;GET CURRENT PCB ADDRESS 
01 BRANCH IF PROCESS HAS CMEXEC PRIVILEGE 


OA 6C B4 
02 


Done 
ero 
<« 
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V_CREXE 
aPcB CBSL “PHD (RGS, 20$ 
10$ : CONTINUE IN COMMON CODE 


—DOOCOCOCOCOCOCOCOOOOOOOOOOWWOWOWOMOOWOo NINN OF 


BNO ANEW = OOD NOUN EIN 9 OD NO NE WIN 9 OD NAME WIN 9 OO NO NEW MP OOONIAU EU 


1 
1 
1 
1 
0010 
3 Bis 
11 00 1 B 
0010 0010 1 SENTRY EXESCMKRNL, “M<R4> 
5 o¢ 12 110108: MOVP :GET PSL 
1050 17 € 1 1 BBS #PSLSV_PRVMOD+1,RO,30$ BRANCH IF CALLER NOT IN EXEC OR KERNEL 
018 11 ; CALL THE SPECIFIED ROUTINE. PASSING IT THE SPECIFIED ,ARGUEMENT List. 
18 «11 : IF THE ROUTINE RETURNS A SUCCESS STATUS IN RO EA FAST EXIT P 
18 «11 ; OUT OF THE SYSTEM SERVICE. THE IDEA IS TO AVOID A mer INETAUCTION, 
18 «11 ; WHICH IS FAR SLOWER THAN THE ‘MOVL Ano "ADDL. {Ff THE ROUTINE 
18 «11 + RETURNS A FAILURE STA "RET'’ BACK TO THE SYSTEM SERVICE DISPATCHER 
1 : TO USE THE SPECIAL SYSTEM SERVICE FAILURE CODE PATH. 
04 BC 08 eC FA 0018 120 208: ¢aLLG BARGLST(AP) .@ROUTINCAP) ; CALL SPECIFIED ROUTINE 
1 E9 001D 1 BLEC —OséR RROR, THEN TAKE ‘NORMAL’ EXIT PATH 
sD OL AD 06 1 MOVL  SFSL_SAVE_FP(FP),FP ‘RESTORE OR RAE'P POINTER 
5E 00° 1 ADDL  S*#ERESC_CMSTKSZ.SP SCLEAN STACK BA ACK TO PC, PSL 
: 7 es REI TRETURN FROM THE SYSTEM SERVICE C 
E 8 125 308: BBS #PRVSV_CMKRNL ,- ‘BRANCH IF PROCESS HAS CMKRNL BRIVILEGE 
Eg 6C B4 A 1 @PCBSL~PHD(R4S , 208 
0 24 3 p 1 MOVZWL #SS$_NOPRIV,RO {SET ERROR STATUS 
128 40$: — RET ; 
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Symbol table 823 p=1 584 $3:48:20 ESYS SRCISYSCHOMOD.MAR; 1 oe (1) 


ARGLST = 00000008 | 
EXESCREXEE 00000000 RG” Ot | 
EXESCMKRNL §b0090%0 RG 1 
EXESC_CMSTKSZ eeereree =X 01 
PCBSL_PHD = 000 8 C 
PRVSV_CMEXEC = 00000001 
PRVSV_CMKRNL = B88 0 
RouTn = Soooo00e | 
SFS$L_SAVE_FP 2 $50000¢ | 
SS$_NOPRIV = 00000024 

¢oeocenre neon eooeceae a 

' Psect synopsis : 
PSECT name Allocation PSECT No. Attributes 
« WES «& 444144444 ( 0.) 00 ¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
. BLANK . 0000031 ( 49.) 01 ¢ +1.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
SABSS 00000000 «¢ 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 

tre reece wenn ewe enanaraceceen 
: Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.06 00:00:00.53 
=p pany 185 Sassen gd aa ee 
Symbol table sort 0 90:00:01.01 $b 00:08:82 
Pass 2 41 00:00:01.08 00:00:03.43 
Symbol table output § 00:00:00.04 00:00:00.04 
Psect synopsis output 00:00:00.02 00:00:00.02 
Cross-reference output 0 a Bo 39:80: 80-88 
Assembler run totals 430 00:00:08.79 00:00:31.00 


33589 bytes (66 pages) of virtual memory were used to buffer the intermediate code. 

There were 40 pages of symbol table space allocated to hold 689 non-local ing 4 local symbols. 
131 source Lines were read in Pass 1, producing 18 object records in Pass 2. 

12 pages of virtual memory were used to define 11 macros. 


The working set Limit was 1200 pages. 
} 


+ 
! Macro Library statistics : 
+ 


Macro Library name Macros defined 

.$255$0UA28:CSYS.OBJJLIB.MLB; 1 1 
$255S$DUA28: CSYSLIBISTARLET.MLB;2 7 

TOTALS (all Libraries) 8 


761 GETS were required to define 8 macros. 


a) 
SYSCHGMOD = SYSTEM SERVICES TO CHANGE MODE 19-3 
VAX-11 Macro Run Statistics S 


4 01:46:59 
5 83:28:33 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:SYSCHGMOD/OBJ=O0BJ$:SYSCHGMOD MSRC$:SYSCHGMOD/UPDATE=(ENHS:SYSCHGMOD) +EXECML$/LIB 


P=19 
Ep=19 
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